home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / OPSIYON.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-10-11  |  687 b   |  29 lines
  1. 'Bu program Dos komut satìrìndan verilen parametreleri bulur
  2.  
  3. DECLARE SUB Parametreler (Adet, Parametre$(), EnFazla)
  4. DIM Parametre$(15)
  5. CALL Parametreler(Adet, Parametre$(), 15)
  6.  
  7. CLS
  8. FOR I = 1 TO Adet
  9.  PRINT STR$(I); ".parametre= "; Parametre$(I)
  10. NEXT
  11.  
  12. SUB Parametreler (Adet, Parametre$(), EnFazla) STATIC
  13.    Al = 1
  14.    FOR I = 1 TO LEN(COMMAND$)
  15.       B$ = MID$(COMMAND$, I, 1)
  16.       IF (B$ <> " " AND B$ <> CHR$(9)) THEN
  17.          IF Al THEN
  18.             IF Adet = EnFazla THEN EXIT FOR
  19.             Adet = Adet + 1
  20.             Al = 0
  21.          END IF
  22.          Parametre$(Adet) = Parametre$(Adet) + B$
  23.       ELSE
  24.          Al = 1
  25.       END IF
  26.    NEXT I
  27. END SUB
  28.  
  29.